home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / MATHLIB0.DEF < prev    next >
Text File  |  2000-09-26  |  520b  |  27 lines
  1. DEFINITION MODULE MathLib0;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     MathLib0 module as defined in the book "Programming in Modula-2"
  7.     by Niklaus Wirth.
  8. *)
  9.  
  10. PROCEDURE sqrt( x :REAL ) :REAL;
  11.  
  12. PROCEDURE exp( x :REAL ) :REAL;
  13.  
  14. PROCEDURE ln( x :REAL ) :REAL;
  15.  
  16. PROCEDURE sin( x :REAL ) :REAL;
  17.  
  18. PROCEDURE cos( x :REAL ) :REAL;
  19.  
  20. PROCEDURE arctan( x :REAL ) :REAL;
  21.  
  22. PROCEDURE real( x :INTEGER ) :REAL;
  23.  
  24. PROCEDURE entier( x :REAL ) :INTEGER;
  25.  
  26.  
  27. END MathLib0.